//==================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// ---------------------------------
// - GĻs@ ȸ} - 
//===================================
// G1.8
//===================================

prt_in,47,173,2	script	Q]#juice	97,{
	mes "[pĤl Q]]";
	if(MISC_QUEST&1 || @MORRISON > 10) {
		mes "... u}! Oާ!";
		mes "ڷ|]oǷMGӦ, Aֺu@ha!";
		emotion e_pif;
		close;
	}
	if(@MORRISON == 10) {
		mes "c..ڤwgYF.";
		mes "AΦAڤF. b~YUhܧګDi.";
		next;
		mes "[pĤl Q]]";
		mes "... ... oAa.";
		next;
		getitem 529,3;
		getitem 530,1;
		set @MORRISON,0;
		mes "[pĤl Q]]";
		mes "oOڭI۶ð_Ӫ}G.";
		mes "pGAڤ@Ǧת, @N}GMA." ;
		close;
	}
	mes ".. ڰڰڰ!!! .. Y";
	mes "..YG!!";
	emotion e_sob;
	next;
	if(select(":")==2) {
		mes "[pĤl Q]]";
		mes "ڰڰڰ!!F!!wgbYGF!";
		mes ",GO~n٦ܦh.YɭԷPıΪA";
		mes "ӥB|ĻHH..٦Y.ڰڰڰ!ڦקa~";
		emotion e_sob;
		close;
	}
	if(countitem(517)) {
		mes "[pĤl Q]]";
		mes "ڰ! ..";
		mes " { {ljF u  o  1צ椣?";
		emotion e_ic;
		next;
		next;
		if(select("L:L")==1) {
			if(countitem(517) == 0) {
				mes "... u}! Oާ!";
				mes "ڷ|]oǷMGӦ, Aֺu@ha!";
				emotion e_pif;
				close;
			}
			delitem 517,1;
			set @MORRISON,@MORRISON+1;
			mes "[pĤl Q]]";
			mes "z~!!! uO׭C! !";
			mes "BP! ڤfyUӤF.";
			mes "uOӷP§AF. ڲ{bıoּ֦hF. ...";
			emotion e_awsm;
			close;
		}
		set @MORRISON,11;
		mes "[pĤl Q]]";
		mes "...";
		mes "... n... ܦn, D`n~!!! ۨpå!";
		emotion e_bzz;
		close;
	}
	mes "[pĤl Q]]";
	mes "ڰڰڰ!!F!!wgbYGF!";
	mes ",GO~n٦ܦh.YɭԷPıΪA";
	mes "ӥB|ĻHH..٦Y.ڰڰڰ!ڦקa~";
	emotion e_wah;
	close;
}

prt_in,49,172,2	script	RȸW#juice	53,{
	mes "[axD RȸW]";
	if(MISC_QUEST&1 || @MORRISON > 10) {
		mes " S״NY...n˥L~YG...";
		mes "|ӨҤl...٦d...";
		next;
		mes "[axD RȸW]";
		mes "!n@ӫ|G٦d.";
		mes "O? ùJ";
		emotion e_hmm;
		set @MORRISON,0;
		set MISC_QUEST,MISC_QUEST | 1;
		close;
	}
	if(@MORRISON) {
		set @MORRISON,0;
		mes "!! o..o쩳";
		mes "@ɤW|oͳoبƱ!!An_ǪڨlY!";
		mes "ur~~u!! ֺuXh!";
		emotion e_pif;
		close;
	}
	mes "Q]!!DAY@IG~!~!!UhF!";
	mes "oaߺDuA...";
	emotion e_sob;
	next;
	if(select(":")==2) {
		mes "[axD RȸW]";
		mes "Q]!! AAo˧ڭnoF!";
		emotion e_bzz;
		close;
	}
	mes "[axD RȸW]";
	mes "..oӤpĥsQ]Oڪl";
	mes "oӳå̪񤣤ӴYG.wgܤ[SYF yⳣܤn@QY...";
	mes "u..LצpQӿkLYCMG...";
	close;
}

payon_in03,188,146,5	script	pJ~#juice	86,{
	mes "[ӤHpJ~]";
	if(MISC_QUEST&1) {
		mes "w{ zݭn[uG?";
		next;
		switch (select("[uG::")) {
		case 1:
			mes "[ӤHpJ~]";
			mes "zݭnG?";
			next;
			switch (select("īG::ڽ::")) {
			case 1:
				set .@fruit,512;
				set .@juice,531;
				break;
			case 2:
				set .@fruit,513;
				set .@juice,532;
				break;
			case 3:
				set .@fruit,515;
				set .@juice,534;
				break;
			case 4:
				set .@fruit,514;
				set .@juice,533;
				break;
			case 5:
				mes "[ӤHpJ~]";
				mes "...UA...";
				close;
			}
			if (countitem(.@fruit) == 0 || countitem(713) == 0 || Zeny < 3) {
				mes "[ӤHpJ~]";
				mes "!";
				mes "Ƥ! s@GĦܤ֭nӤG@ӡBŲ~@ӡB٦3!";
				next;
				mes "[ӤHpJ~]";
				mes "pGAƳaܡA";
				mes "ڷ|As@GĪ!";
				close;
			}
			mes "[ӤHpJ~]";
			mes "ݭnh?";
			next;
			switch (select("w:ҦڲզX:")) {
			case 1:
				while(1) {
					input .@input;
					if (.@input == 0) {
						mes "[ӤHpJ~]"																									;
						mes "F";
						close;
					}
					else if (.@input > 100) {
						mes "[ӤHpJ~]"																									;
						mes "@̦huAs@100~Gĳ!";
						next;
					}
					else {
						break;
					}
					break;
				}
				set .@make,.@input;
				if(countitem(.@fruit) < .@make || countitem(713) <  .@make || Zeny < .@make * 3) {
					mes "[ӤHpJ~]";
					mes "o,o...Ƥ";
					emotion e_gasp;
					close;
				}
				break;
			case 2:
				set .@make,1000;
				if(Zeny/3 < .@make) set .@make, Zeny/3;
				if(countitem(.@fruit) < .@make) set .@make, countitem(.@fruit);
				if(countitem(713) < .@make) set .@make, countitem(713);
				if(.@make > 0) break;
				mes "[ӤHpJ~]";
				mes "...zƤO!";
				emotion e_gasp;
				close;
			case 3:
				mes "[ӤHpJ~]";
				mes "! ... UAF.";
				close;
			}
			delitem .@fruit, .@make;
			delitem 713, .@make;
			set Zeny, Zeny - .@make * 3;
			getitem .@juice, .@make;
			mes "[ӤHpJ~]";
			mes "oOznG,D@wܤ.";
			mes "...UAӧa.";
			close;

		case 2:
			mes "[ӤHpJ~]";
			mes "# GĤ #";
			mes "īGG -";
			mes "-īG x1, Ų~ x1, 3 .";
			mes "";
			mes "G -";
			mes " x1, Ų~ x1, 3 .";
			mes "";
			mes "ڽG -";
			mes "ڽ x1, Ų~ x1, 3 .";
			mes "";
			mes "G -";
			mes " x1, Ų~ x1, 3 .";
			close;
		case 3:
			mes "[ӤHpJ~]";
			mes "JMӧH,OOӻIO.";
			close;
		}
	}
	mes "жiAڦƱ?";
	next;
	if(select(".:.")==1) {
		mes "[ӤHpJ~]";
		mes "Hb٨S״IѫeACӤHOYGLͬ.";
		mes "GOH۪ʤO@Aۤj۵M.";
		next;
		mes "[ӤHpJ~]";
		mes "{bͬnF.";
		mes "̪񪺦~HϦӤwYG.";
		mes "ҥHQӿkL@NYG.";
		mes "GONGGġAL̤KΦӥBDn";
		close;
	}
	mes "[ӤHpJ~]";
	mes "JMӧHAOOӻIO?";
	close;
}
